home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbeyes10 / eyes.frm < prev    next >
Text File  |  1995-05-08  |  6KB  |  215 lines
  1. VERSION 2.00
  2. Begin Form eyes 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Eyes"
  6.    ClientHeight    =   2610
  7.    ClientLeft      =   1530
  8.    ClientTop       =   1560
  9.    ClientWidth     =   2760
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    DrawStyle       =   5  'Transparent
  13.    Height          =   3015
  14.    Icon            =   EYES.FRX:0000
  15.    Left            =   1470
  16.    LinkTopic       =   "Form1"
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    ScaleHeight     =   174
  20.    ScaleMode       =   3  'Pixel
  21.    ScaleWidth      =   184
  22.    Top             =   1215
  23.    Width           =   2880
  24.    WindowState     =   1  'Minimized
  25.    Begin PictureBox Picture9 
  26.       AutoSize        =   -1  'True
  27.       Height          =   510
  28.       Left            =   1920
  29.       Picture         =   EYES.FRX:0302
  30.       ScaleHeight     =   480
  31.       ScaleWidth      =   480
  32.       TabIndex        =   8
  33.       Top             =   1800
  34.       Width           =   510
  35.    End
  36.    Begin PictureBox Picture8 
  37.       AutoSize        =   -1  'True
  38.       Height          =   510
  39.       Left            =   1080
  40.       Picture         =   EYES.FRX:0604
  41.       ScaleHeight     =   480
  42.       ScaleWidth      =   480
  43.       TabIndex        =   7
  44.       Top             =   1800
  45.       Width           =   510
  46.    End
  47.    Begin PictureBox Picture7 
  48.       AutoSize        =   -1  'True
  49.       Height          =   510
  50.       Left            =   240
  51.       Picture         =   EYES.FRX:0906
  52.       ScaleHeight     =   480
  53.       ScaleWidth      =   480
  54.       TabIndex        =   6
  55.       Top             =   1800
  56.       Width           =   510
  57.    End
  58.    Begin PictureBox Picture6 
  59.       AutoSize        =   -1  'True
  60.       Height          =   510
  61.       Left            =   1920
  62.       Picture         =   EYES.FRX:0C08
  63.       ScaleHeight     =   480
  64.       ScaleWidth      =   480
  65.       TabIndex        =   5
  66.       Top             =   1080
  67.       Width           =   510
  68.    End
  69.    Begin PictureBox Picture5 
  70.       AutoSize        =   -1  'True
  71.       Height          =   510
  72.       Left            =   1080
  73.       Picture         =   EYES.FRX:0F0A
  74.       ScaleHeight     =   480
  75.       ScaleWidth      =   480
  76.       TabIndex        =   4
  77.       Top             =   1080
  78.       Width           =   510
  79.    End
  80.    Begin PictureBox Picture4 
  81.       AutoSize        =   -1  'True
  82.       Height          =   510
  83.       Left            =   240
  84.       Picture         =   EYES.FRX:120C
  85.       ScaleHeight     =   480
  86.       ScaleWidth      =   480
  87.       TabIndex        =   3
  88.       Top             =   1080
  89.       Width           =   510
  90.    End
  91.    Begin PictureBox Picture3 
  92.       AutoSize        =   -1  'True
  93.       Height          =   510
  94.       Left            =   1920
  95.       Picture         =   EYES.FRX:150E
  96.       ScaleHeight     =   480
  97.       ScaleWidth      =   480
  98.       TabIndex        =   2
  99.       Top             =   360
  100.       Width           =   510
  101.    End
  102.    Begin PictureBox Picture2 
  103.       AutoSize        =   -1  'True
  104.       Height          =   510
  105.       Left            =   1080
  106.       Picture         =   EYES.FRX:1810
  107.       ScaleHeight     =   480
  108.       ScaleWidth      =   480
  109.       TabIndex        =   1
  110.       Top             =   360
  111.       Width           =   510
  112.    End
  113.    Begin PictureBox Picture1 
  114.       AutoSize        =   -1  'True
  115.       Height          =   510
  116.       Left            =   240
  117.       Picture         =   EYES.FRX:1B12
  118.       ScaleHeight     =   480
  119.       ScaleWidth      =   480
  120.       TabIndex        =   0
  121.       Top             =   360
  122.       Width           =   510
  123.    End
  124. End
  125. ' Global Variable Used to Determine Cursor Position's Sector
  126. Dim Sector As Integer
  127.  
  128. Sub Form_Load ()
  129.     'Hide the Normal Form Off the Screen Boundaries
  130.     Eyes.Move -(Eyes.Width + 5), -(Eyes.Height + 5)
  131. End Sub
  132.  
  133. Sub Form_Resize ()
  134.     'Declare Cursor Structure & OldSector
  135.     Dim Cursor As lpoint
  136.     Dim OldSector As Integer
  137.     
  138.     ' Quit Program if Not Iconic
  139.     If Eyes.WindowState <> 1 Then End
  140.  
  141.     ' If Iconic State
  142.     Do While Eyes.WindowState = 1
  143.  
  144.         'Get the Current Cursor Position
  145.         Call GetCursorPos(Cursor)
  146.  
  147.         'Save the Last Sector Number
  148.         OldSector = Sector
  149.  
  150.         'Determine the New Sector Number
  151.         Call GetSector(Cursor.x, Cursor.y)
  152.  
  153.         ' Skip Icon Paint if Same Sector as Before
  154.         If OldSector = Sector Then GoTo Skipit
  155.  
  156.         ' Update Icon with New Sector Picture
  157.         Select Case Sector
  158.             Case 1
  159.                 Eyes.Icon = Picture1.Picture
  160.             Case 2
  161.                 Eyes.Icon = Picture2.Picture
  162.             Case 3
  163.                 Eyes.Icon = Picture3.Picture
  164.             Case 4
  165.                 Eyes.Icon = Picture4.Picture
  166.             Case 5
  167.                 Eyes.Icon = Picture5.Picture
  168.             Case 6
  169.                 Eyes.Icon = Picture6.Picture
  170.             Case 7
  171.                 Eyes.Icon = Picture7.Picture
  172.             Case 8
  173.                 Eyes.Icon = Picture8.Picture
  174.             Case 9
  175.                 Eyes.Icon = Picture9.Picture
  176.             End Select
  177. Skipit:
  178.         'Return Processing Back to Windows
  179.         Tmp = DoEvents()
  180.     Loop
  181.  
  182. End Sub
  183.  
  184. '
  185. '   This Subroutine determines the sector number associated with the cursor position
  186. '   There are 9 possible sectors, number 5 being the icon itself
  187. '
  188. '   +----+----+----+
  189. '   | 01 | 02 | 03 |
  190. '   +----+----+----+
  191. '   | 04 |icon| 06 |
  192. '   +----+----+----+
  193. '   | 07 | 08 | 09 |
  194. '   +----+----+----+
  195. '
  196. Sub GetSector (x As Integer, y As Integer)
  197.  
  198.     ' Declare Icon Structure
  199.     Dim Irect As lrect
  200.     
  201.     'Find Size of Icon
  202.     Call GetWindowRect(Eyes.hWnd, Irect)
  203.     
  204.     'Find X Sector
  205.     Sector = 1
  206.     If (x >= Irect.Left) And (x < Irect.Right) Then Sector = 2
  207.     If x >= Irect.Right Then Sector = 3
  208.     
  209.     'Find Y Sector
  210.     If (y >= Irect.Top) And (y < Irect.Bottom) Then Sector = Sector + 3
  211.     If y >= Irect.Bottom Then Sector = Sector + 6
  212.  
  213. End Sub
  214.  
  215.